home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / BaudAnsi_V1_8.lha / PFiles / BaudAnsi / BaudAnsi.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-23  |  7KB  |  191 lines
  1. /***************************************************************************/
  2. /*                                                                         */
  3. /*                    BaudAnsi.rexx V1.8 (23.04.1997)                      */
  4. /*  Copyright (C)1996-1997 by Campino - All Rights reserved - Frei nutzbar */
  5. /*         Irgendwelche Änderungen in diesem File sind ILLEGAL !!!         */
  6. /*                     Bitte lese auch das Guide !!                        */
  7. /*                                                                         */
  8. /*  Amiga Project BBS-Ehingen: 24h online unter: 07391/3213 (V.34+V.FC)    */
  9. /*                                                                         */
  10. /***************************************************************************/
  11.  
  12. /*
  13. $VER: BaudAnsi.rexx 1.8 (23.04.1997) © 1996-1997 by Campino and Hightower
  14. */
  15.  
  16. options results
  17. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  18.         IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  19.                 EXIT(10)
  20. gu=getuser
  21. tr=transmit
  22. ss=sendstring
  23. sf=sendfile
  24. bf=bufferflush
  25. gu 1311992
  26. Path=result
  27. bf
  28. call Open(i,path||"BaudAnsi.rexx","R")
  29.         chk=seek(i,0,"E")
  30. call close(i)
  31. if chk>6880+10 | chk<6880-10
  32.  then do
  33.   tr x2c("196631196E3150726F6772616D20636F64652077617320616C74657265642E2053657474696E67206D6F6E69746F72206672657175656E637920746F20323030487A21197731")
  34.         do a=1 to 100
  35.                 tr x2c("196231197A30196631")
  36.                 tr x2c("196231197A37196631")
  37.         end
  38.         bf
  39.         ss "a1w99999}"
  40.         exit
  41. end
  42. Zeit=Time()
  43. Datum=Date()
  44. Tag=Date('w') 
  45. signal on error
  46. signal on ioerr
  47. signal on syntax
  48. signal on halt
  49. bbsidentify sysop
  50. sysop=result
  51. bbsidentify name
  52. bbsname=result
  53. gu 1200064
  54. callno=result
  55. if callno = -1 then call skiplog
  56. gu 15
  57. access=result
  58. gu 1
  59. uname=result
  60. gu 23
  61. port=result
  62. gu 28
  63. term=result;if term=4 | term=1 then term=3
  64. gu 23007346
  65. tmpp=result
  66. gu 1200018
  67. bps=result*10
  68. gu 12
  69. Birth1=result
  70. Birth2=left(Birth1,10)
  71. Birth3=right(Birth2,6)
  72. gu 58
  73. Birth4=result
  74. Birth5=left(Birth4,10)
  75. Birth4=right(Birth5,6)
  76. BirthdayAnsi_TT1_4=path||"Ansis/Birthday".tt""||term||""
  77. BirthdayAnsi_TT0=path||"Ansis/Birthday".tt""||term||""
  78. if Birth4 = Birth3 then do
  79. if term=0 then do
  80. sf BirthdayAnsi_TT0
  81. end
  82. if term=1 | term=2 | term=3 | term=4 then do 
  83. sf BirthdayAnsi_TT1_4
  84. end
  85. tr "n1cb<caPress any Keycb>cfG0"
  86. call open(BirthdayMail,tmpp||port"BaudAnsiBirthdayMail","W")
  87. Birthday.Mail="Hallo ccu1"||uname||"u0c7 ! n2Das SysOp-Team der "||bbsname||" moechte Dir alles Gute zum Geburtstag wuenschen ! n2Noch viel Spass in dieser Box ! n2Das SysOp-Team der "||bbsname||" !n1"
  88. call writeln(BirthdayMail,Birthday.Mail)
  89. call close(BirthdayMail)
  90. cleareditor
  91. setmailsubj "c9Herzlichen Glueckwunsch !!c7"
  92. loadeditor tmpp||port"BaudAnsiBirthdayMail"
  93. gu 40
  94. writemail result
  95. call delete(tmpp||port'BaudAnsiBirthdayMail')
  96. gu 38
  97. aehh = result
  98. gu 1
  99. BaudAnsiBanner = result
  100. call open(bann,tmpp||'BaudAnsiBanner',"W")
  101. call writeln bann, aehh
  102. call close(bann)
  103. ss 'L38 #It''s My Birthday Today !!!!}'
  104. bf
  105. end
  106. if Birth4 ~= Birth3 then do
  107. if exists(tmpp||'BaudAnsiBanner') then do
  108. call open(bann,tmpp||'BaudAnsiBanner',"R")
  109. rbanner=readln(bann)
  110. gu 38
  111. sendstring 'L38 #'rbanner'}'
  112. gu 1
  113. BaudAnsiBanner = result
  114. call close(bann)
  115. call delete(tmpp||'BaudAnsiBanner')
  116. bf
  117. end
  118. bf
  119. end
  120. if access=0 then do
  121. sf path||"Ansis/newuser.mci"
  122. call open(newusermail,tmpp||port"BaudAnsinewusermail","W")
  123. newuser.Mail="Hallo ccu1"||uname||"u0c7 ! n2Das SysOp-Team der "||bbsname||" moechte Dich hiermit als neuen User begruessen ! Du wirst innerhalb von 24h freigeschalten, damit hast Du vollen Zugriff auf die Box und kannst Up- & Downloaden ! Du bekommst dann 4 MB geschenkt, mit diesen 4 MB kannst Du solange Files downloaden, bis diese 4 MB verbraucht sind, danach musst Du Files uploaden.. hier gilt Ratio 3:1 .. Das bedeutet fuer jedes Upgeloadete Byte bekommst Du 3 Bytes auf dein Konto gutgeschrieben !n2Falls noch Fragen sein sollten, kannst Du im Hauptmenue den SysOp mit c1Cc7 rufen oder ihm mit c1FBc7 eine Mail schreiben ! n2Ansonsten noch viel Spass in dieser Box ! n2Das SysOp-Team der "||bbsname||" !n1"
  124. call writeln(newusermail,newuser.Mail)
  125. call close(newusermail)
  126. cleareditor
  127. setmailsubj "c9Herzlich Willkommen !!c7"
  128. loadeditor tmpp||port"BaudAnsinewusermail"
  129. gu 40
  130. writemail result
  131. call delete(tmpp||port'BaudAnsinewusermail')
  132. end
  133. else tr ""
  134. Version="1.8"
  135. SysOp.Mail="Hallo ccu1"||SYSOP||"u0c7 ! n2Es ist ein Fehler in BaudAnsi V"||Version||" aufgetreten :( n1Schau mal bitte in die Datei c9u1o1'SysData:Log/BaudAnsi.log'c7u0o0 fuer weitere Infos !n2Thx ! Campino (Coder von BaudAnsi)"
  136. FName="BaudAnsi.rexx"
  137. Oooop="V"
  138. PName="BaudAnsi"
  139. changewhere "BaudAnsi V1.8"
  140. if bps>64000 | bps<9600
  141.  then exit
  142. tr 'f1n1'
  143. transmit x2c(19636242617564416E73692019633956)Version||x2c(19633720196362284329313939362D313939372062792043616D70696E6F20616E642048696768746F776572196E31)
  144. tr 'cfGood V46}, caV1300072}cf ! You have ...'
  145. bps=path||"Ansis/"||bps||".tt"||term||""
  146. sf bps
  147. tr 'n1                              cc... to this Board !c7n1'
  148. tr "cf          Account No.: caV1200012} c9/cf Date: ca"Tag", "Datum" c9/cf Time: ca"Zeit"cf"
  149. tr '             Last Caller: caV2314266}c7 c9/cf You are connected at Port: ca'||Port||'c7n1'
  150. bf
  151. exit
  152. skiplog:
  153. tr 'cfn1Localer Login - BaudAnsi wird nicht gestartet.'
  154. bf
  155. exit
  156. ERROR:;IOERR:;SYNTAX:;HALT:
  157. tr 'n2c9********************************************************************************c7'
  158. err="Fehler in Zeile: "sigl "Code:" errortext(rc) "Filename: "||FName||" Version: V"||Version||""
  159. logentry ('Error in BaudAnsi.')
  160. tr ''
  161. tr "n1c9 "err
  162. tr ''
  163. tr 'c9Wichtig:'
  164. tr 'caBitte informiere den SysOp ('||SYSOP||') ueber diesen Fehler !'
  165. tr 'Teile Ihm bitte die cbZeileca, cbCodeca, cbFilenameca und die cbVersionca mit !'
  166. tr 'Vielen Herzlichen Dank fuer Deine Muehe !!c7n1'
  167. if exists("SysData:Log/BaudAnsi.log") then open(ba,"SysData:log/BaudAnsi.log","A")
  168.         else open(ba,"SysData:log/BaudAnsi.log","W")
  169. call writeln(ba,"BaudAnsi Error: "Err)
  170. call close(ba)
  171. call open(SysOpMail,tmpp||port"BaudAnsiSysMail","W")
  172. call writeln(SysOpMail,SysOp.Mail)
  173. call close(SysOpMail)
  174. cleareditor
  175. setmailsubj "BaudAnsi V"||Version||""
  176. loadeditor tmpp||port"BaudAnsiSysMail"
  177. writemail 1
  178. call delete(tmpp||port'BaudAnsiSysMail')
  179. bf
  180. end
  181. tr 'n1c9********************************************************************************c7'
  182. tr 'c6Druecke irgendeine Taste !c7n1 g0'
  183. bf
  184. exit
  185.  
  186. /***************************************************************************/
  187. /*                                                                         */
  188. /*                               The End.                                  */
  189. /*                                                                         */
  190. /***************************************************************************/
  191.